#############################################
#第2次ＳＲＷα風ステータス表示ver13.02おまけ#
#############################################

マップコマンド 味方部隊表:
ShowUnitStatus 終了
みかたのぶたいひょう jikan
ステ設定消す
Exit

みかたのぶたいひょう:
Require Lib\Alpha2ndStatus.ini
各種数値の設定
Font 40pt Regular
Line 0 0 479 479 BF #000000
PaintString - - "Now Loading…"
Refresh
Font
Local 今の欄 = 1
Local なんの順番 = 1
Local 今のページ = 1
機体順
Local ページ数 = ((メンバー数 - 1) \ 10 + 1)
Local i = メンバー数
Do
	ページ作り 今のページ ページ数 今の欄 なんの順番
	Refresh
	Wait click
	Switch 選択
	Case ＨＰＥＮ
		Set 今の欄 1
	Case れべる
		Set 今の欄 2
	Case ぎのう
		Set 今の欄 3
	Case 機体
		Set なんの順番 1
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case ＨＰ
		Set なんの順番 2
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case ＭＡＸＨＰ
		Set なんの順番 3
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case ＥＮ
		Set なんの順番 4
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case パイロット
		Set なんの順番 5
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case Lv
		Set なんの順番 6
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case 気力
		Set なんの順番 7
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case 修理
		Set なんの順番 8
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case 補給
		Set なんの順番 9
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case 援攻
		Set なんの順番 10
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case 援防
		Set なんの順番 11
		ならべかえ i なんの順番
		今のページ = 何ページ目(げんざいのせんたく,なんの順番)
	Case 次ページ
		If 今のページ = ページ数 Then
			今のページ = 1
		Else
			Incr 今のページ
		EndIf
	Case 前ページ
		If 今のページ = 1 Then
			今のページ = ページ数
		Else
			今のページ = (今のページ - 1)
		EndIf
	Case マップ
		Redraw
		ClearObj
		If ターン数 <> 0 Then
			Center X(メンバー[げんざいのせんたく]) Y(メンバー[げんざいのせんたく])
			PaintPicture Cursor.bmp - - 透過
		Else
			PaintPicture Cursor.bmp WX(メンバー[げんざいのせんたく]) WY(メンバー[げんざいのせんたく]) 透過
		EndIf
		Refresh
		Wait click
		変数リセット
		Break
	Case 能力
		Local わたし値
		Set わたし値 PilotID(メンバー[げんざいのせんたく])
		変数消すよ
		Redraw
		ClearObj
		If Info(パイロット,わたし値,愛称) <> パイロット不在 Then
			参照項目 = 1
		Else
			参照項目 = 2
		EndIf
		ステータス表示制御 わたし値 参照項目
		変数リセット
		If KeyState(2) Then
			Do While KeyState(2)
			Loop
			Wait 1
			Break
		EndIf
	Case ""
		If KeyState(2) Then
			Do While KeyState(2)
			Loop
			Wait 1
			Break
		EndIf
	Case Else
		げんざいのせんたく = 選択
	EndSw
Loop While (1)
変数消すよ
ClearObj
Redraw
Return

土台作り:
ClearObj
ClearPicture
If BGGraphic = "On" Then
	PaintPicture BackGround - - 480 480 BackGroundOption
Else
	Line 0 0 479 479 BF BackGroundColor
EndIf
PaintPicture \event\味方部隊表.png - - 透過
Line 16 9 75 45 BF FrameColor3
Line 16 9 75 45 B FrameColor1
Line 78 9 137 45 BF FrameColor3
Line 78 9 137 45 B FrameColor1
Line 16 54 463 73 B FrameColor1
Line 16 76 238 429 B FrameColor1
Line 241 76 463 429 B FrameColor1
Line 16 432 238 463 B FrameColor1
Line 241 432 463 463 B FrameColor1
Color FrameColor1
FillStyle 塗りつぶし
FillColor FrameColor1
Polygon 160 9 142 27 160 45 319 45 337 27 319 9
FillStyle 透明
Line 320 45 338 27 #c8c8c8
Font 14pt Ｐゴシック
PaintString 190 18 "味方部隊表"
PaintString 26 18 "能力"
PaintString 84 18 "マップ"
HotPoint 能力 16 9 60 37 能力
HotPoint マップ 78 9 60 37 マップ
Font 13pt
yelPaintString 52 80 機体
Font
Return

ページ表示:
Font Ｐゴシック
whiPaintString (420 - TextWidth(Args(1))) 18 "$(Args(1))/$(Args(2))"
If Args(2) > 1 Then
	ページ切り替えボタン
EndIf
Font
Return

ページ切り替えボタン:
HotPoint 前ページ 0 57 16 407 前のページへ
HotPoint 次ページ 464 57 16 407 次のページへ
PaintPicture \event\辞典用三角.png 2 222 透過
PaintPicture \event\辞典用三角.png 466 222 左右反転 透過
Return

ページ作り:
Local i
Local 何番目
土台作り
Set 何番目 (メンバー[げんざいのせんたく,Args(4)] Mod 10)
If 何番目 = 0 Then
	Set 何番目 10
EndIf
個別情報ひょうじ Args(1) げんざいのせんたく 何番目 Args(4) Args(3)
ページ表示 Args(1) Args(2)
ならべる Args(1) Args(3)
矢印どこ Args(4) Args(3)
Return

ならべる:
Local i
Local j
For i = 1 To 10
	j = i + ((Args(1) - 1) * 10)
	If ひょうじはいれつ[j] <> "" Then
		がぞうとなまえをひょうじ ひょうじはいれつ[j] i
		Switch Args(2)
		Case 1
			ＨＰとＥＮ土台
			ＨＰとＥＮをひょうじ ひょうじはいれつ[j] i
		Case 2
			パイロット情報土台
			パイロット情報ひょうじ ひょうじはいれつ[j] i
		Case 3
			特能土台
			特能ひょうじ ひょうじはいれつ[j] i
		EndSw
	Else
		Break
	EndIf
Next
Return

がぞうとなまえをひょうじ:
Font 10pt Ｐゴシック
Local gow
If Action(Args(1)) = 0 Then
	gow = 2
	PaintPicture ("Unit\" & Info(ユニット,Args(1),グラフィック)) 17 (99 + 33 * (Args(2) - 1)) 透過 白黒
ElseIf Status(Args(1)) = "格納" Then
	gow = 3
	PaintPicture ("Unit\" & Info(ユニット,Args(1),グラフィック)) 17 (99 + 33 * (Args(2) - 1)) 透過 セピア
Else
	gow = 1
	PaintPicture ("Unit\" & Info(ユニット,Args(1),グラフィック)) 17 (99 + 33 * (Args(2) - 1)) 透過
EndIf
selPaintString gow 52 (108 + 33 * (Args(2) - 1)) Nickname(Unit(Args(1)))
HotPoint ぎゃくひき[Args(1)] 17 (99 + 33 * (Args(2) - 1)) 446 33 Nickname(Unit(Args(1)))
Font
Return

矢印どこ:
Switch Args(2)
Case 1
	PaintPicture \event\暗順番.png 61 55 透過
	PaintPicture \event\暗順番.png 302 55 透過
	PaintPicture \event\暗順番.png 344 55 透過
	PaintPicture \event\暗順番.png 416 55 透過
	HotPoint 機体 61 55 19 18 機体
	HotPoint ＨＰ 302 55 19 18 "HP"
	HotPoint ＭＡＸＨＰ 344 55 19 18 "MAXHP"
	HotPoint ＥＮ 416 55 19 18 "EN"
	Switch Args(1)
	Case 1
		PaintPicture \event\明順番.png 61 55 透過
		ClearObj 機体
	Case 2
		PaintPicture \event\明順番.png 302 55 透過
		ClearObj ＨＰ
	Case 3
		PaintPicture \event\明順番.png 344 55 透過
		ClearObj ＭＡＸＨＰ
	Case 4
		PaintPicture \event\明順番.png 416 55 透過
		ClearObj ＥＮ
	EndSw
Case 2
	PaintPicture \event\暗順番.png 61 55 透過
	PaintPicture \event\暗順番.png 272 55 透過
	PaintPicture \event\暗順番.png 374 55 透過
	PaintPicture \event\暗順番.png 423 55 透過
	HotPoint 機体 61 55 19 18 機体
	HotPoint パイロット 272 55 19 18 "パイロット"
	HotPoint Lv 374 55 19 18 "Lv"
	HotPoint 気力 423 55 19 18 "気力"
	Switch Args(1)
	Case 1
		PaintPicture \event\明順番.png 61 55 透過
		ClearObj 機体
	Case 5
		PaintPicture \event\明順番.png 272 55 透過
		ClearObj パイロット
	Case 6
		PaintPicture \event\明順番.png 374 55 透過
		ClearObj Lv
	Case 7
		PaintPicture \event\明順番.png 423 55 透過
		ClearObj 気力
	EndSw
Case 3
	PaintPicture \event\暗順番.png 61 55 透過
	PaintPicture \event\暗順番.png 256 55 透過
	PaintPicture \event\暗順番.png 303 55 透過
	PaintPicture \event\暗順番.png 358 55 透過
	PaintPicture \event\暗順番.png 421 55 透過
	HotPoint 機体 61 55 19 18 機体
	HotPoint 修理 256 55 19 18 修理
	HotPoint 補給 303 55 19 18 補給
	HotPoint 援攻 358 55 19 18 援攻
	HotPoint 援防 421 55 19 18 援防
	Switch Args(1)
	Case 1
		PaintPicture \event\明順番.png 61 55 透過
		ClearObj 機体
	Case 8
		PaintPicture \event\明順番.png 256 55 透過
		ClearObj 修理
	Case 9
		PaintPicture \event\明順番.png 303 55 透過
		ClearObj 補給
	Case 10
		PaintPicture \event\明順番.png 358 55 透過
		ClearObj 援攻
	Case 11
		PaintPicture \event\明順番.png 421 55 透過
		ClearObj 援防
	EndSw
EndSw
Return

個別情報ひょうじ:
Local gow
If 何ページ目(Args(2),Args(4)) = Args(1) Then
	Local i
	For i = 0 To 32
		チェックの色だ i
		Line 17 (99 + 33 * (Args(3) - 1) + i) 237 (99 + 33 * (Args(3) - 1) + i) BF
		Line 242 (99 + 33 * (Args(3) - 1) + i) 462 (99 + 33 * (Args(3) - 1) + i) BF
	Next
EndIf
If Action(メンバー[Args(2)]) = 0 Then
	gow = 2
ElseIf Status(メンバー[Args(2)]) = "格納" Then
	gow = 3
Else
	gow = 1
EndIf
If Args(5) = 2 Then
	Font 10pt Ｐゴシック
	Local UnitHP
	UnitHP = HP(メンバー[Args(2)])
	Local MaxHP
	MaxHP = Info(ユニット,メンバー[Args(2)],最大ＨＰ)
	Local UnitEN
	UnitEN = EN(メンバー[Args(2)])
	Local MaxEN
	MaxEN = Info(ユニット,メンバー[Args(2)],最大ＥＮ)
	If Action(メンバー[Args(2)]) = 0 Then
		gow = 2
		Line 50 454 150 454 #3e0002
		Line 50 455 150 455 #640000
		Line 50 454 (50 + 100 * UnitHP / MaxHP) 454 #004000
		Line 50 455 (50 + 100 * UnitHP / MaxHP) 455 #008000
		Line 182 454 232 454 #3e0002
		Line 182 455 232 455 #640000
		Line 182 454 (182 + 50 * UnitEN / MaxEN) 454 #805200
		Line 182 455 (182 + 50 * UnitEN / MaxEN) 455 #808000
	Else
		If Status(メンバー[Args(2)]) = "格納" Then
			gow = 3
		Else
			gow = 1
		EndIf
		Line 50 454 150 454 #7d0004
		Line 50 455 150 455 #c80000
		Line 50 454 (50 + 100 * UnitHP / MaxHP) 454 #008000
		Line 50 455 (50 + 100 * UnitHP / MaxHP) 455 #00ff00
		Line 182 454 232 454 #7d0004
		Line 182 455 232 455 #c80000
		Line 182 454 (182 + 50 * UnitEN / MaxEN) 454 #ffa500
		Line 182 455 (182 + 50 * UnitEN / MaxEN) 455 #ffff00
	EndIf
	Font 10pt Ｐゴシック
	selPaintString gow (100 - TextWidth(UnitHP)) 438 "$(UnitHP)/$(MaxHP)"
	selPaintString gow Int(208 - TextWidth(UnitEN) / 2) 438 "$(UnitEN)"
	Font
Else
	Font 10pt Ｐゴシック
	selPaintString gow 27 442 Nickname(Pilot(メンバー[Args(2)]))
	Font 13pt Ｐゴシック
	selPaintString gow (165 - TextWidth(Level(Pilot(メンバー[Args(2)])))) 440 Level(Pilot(メンバー[Args(2)]))
	selPaintString gow (235 - TextWidth(Morale(Pilot(メンバー[Args(2)])))) 440 Morale(Pilot(メンバー[Args(2)]))
	Font
EndIf
Return

何ページ目:
Return ((メンバー[Args(1),Args(2)] - 1) \ 10 + 1)

チェックの色だ:
Color RGB(SelectR * (200 - Args(1) * 4),SelectG * (200 - Args(1) * 4),SelectB * (200 - Args(1) * 4))
Return

機体順:
Local i
Set i 0
ForEach めんば[] In ユニット一覧(名称)
	If (Party(めんば[]) = 味方) And ((Status(めんば[]) = "出撃") Or (Status(めんば[]) = "格納")) Then
		Incr i
		メンバー[i] = めんば[]
	EndIf
Next
UnSet めんば
Set げんざいのせんたく 1
Set メンバー数 i
Set はいれつずみ[1] 1
For i = 1 To メンバー数
	ぎゃくひき[メンバー[i]] = i
	メンバー[i,1] = i
	ひょうじはいれつ[メンバー[i,1]] = メンバー[i]
Next
Return

ならべかえ:
Local i
Local j
Local temp
If はいれつずみ[Args(2)] <> 1 Then
	Switch Args(2)
	Case 2
		ＨＰ順
	Case 3
		最大ＨＰ順
	Case 4
		ＥＮ順
	Case 5
		パイロット順
	Case 6
		レベル順
	Case 7
		気力順
	Case 8 9 10 11
		とくのう順 Args(2)
	EndSw
For i = 1 To Args(1)
	メンバー[ぎゃくひき[げんざいのはいれつ[i]],Args(2)] = i
Next
Set はいれつずみ[Args(2)] 1
EndIf
UnSet げんざいのはいれつ
For i = 1 To Args(1)
	ひょうじはいれつ[メンバー[i,Args(2)]] = メンバー[i]
Next
Return

ＨＰ順:
Local i
i = 0
ForEach めんば[] In ユニット一覧(ＨＰ)
	If (Party(めんば[]) = 味方) And ((Status(めんば[]) = "出撃") Or (Status(めんば[]) = "格納")) Then
		Incr i
		げんざいのはいれつ[i] = めんば[]
	EndIf
Next
UnSet めんば
Return

最大ＨＰ順:
Local i
If はいれつずみ[2] <> 1 Then
	ＨＰ順
Else
	For i = 1 To メンバー数
		げんざいのはいれつ[メンバー[i,2]] = メンバー[i]
	Next
EndIf
Local j
Local temp
For i = 2 To メンバー数
	j = i
	Do While (j > 1)
		If 判定(3,げんざいのはいれつ[j],げんざいのはいれつ[j - 1]) = 1 Then
			temp = げんざいのはいれつ[j]
			げんざいのはいれつ[j] = げんざいのはいれつ[j - 1]
			げんざいのはいれつ[j - 1] = temp
			j = (j - 1)
		Else
			Break
		EndIf
	Loop
Next
Return

ＥＮ順:
Local i
i = 0
ForEach めんば[] In ユニット一覧(ＥＮ)
	If (Party(めんば[]) = 味方) And ((Status(めんば[]) = "出撃") Or (Status(めんば[]) = "格納")) Then
		Incr i
		げんざいのはいれつ[i] = めんば[]
	EndIf
Next
UnSet めんば
Return

パイロット順:
Local i
i = 0
ForEach めんば[] In パイロット一覧(名称)
	If (Party(めんば[]) = 味方) And (PilotID(UnitID(めんば[]),1) = めんば[]) And ((Status(めんば[]) = "出撃") Or (Status(めんば[]) = "格納")) Then
		Incr i
		げんざいのはいれつ[i] = UnitID(めんば[])
	EndIf
Next
UnSet めんば
Return

レベル順:
Local i
i = 0
ForEach めんば[] In パイロット一覧(レベル)
	If (Party(めんば[]) = 味方) And (PilotID(UnitID(めんば[]),1) = めんば[]) And ((Status(めんば[]) = "出撃") Or (Status(めんば[]) = "格納")) Then
		Incr i
		げんざいのはいれつ[i] = UnitID(めんば[])
	EndIf
Next
UnSet めんば
Return

気力順:
Local i
Local j
Local temp
For i = 1 To メンバー数
	げんざいのはいれつ[i] = メンバー[i]
Next
For i = 2 To メンバー数
	j = i
	Do While (j > 1)
		If 判定(7,げんざいのはいれつ[j],げんざいのはいれつ[j - 1]) = 1 Then
			temp = げんざいのはいれつ[j]
			げんざいのはいれつ[j] = げんざいのはいれつ[j - 1]
			げんざいのはいれつ[j - 1] = temp
			j = (j - 1)
		Else
			Break
		EndIf
	Loop
Next
Return

とくのう順:
Local i
Local j
Local k
k = 0
j = 0
For i = 1 To メンバー数
	If 判定そのニ(Args(1),i) = 1 Then
		Incr j
		げんざいのはいれつ[j] = メンバー[メンバー数 + 1 - i]
	Else
		Incr k
		げんざいのはいれつ[メンバー数 + 1 - k] = メンバー[メンバー数 + 1 - i]
	EndIf
Next
Local moti
moti = j
Local temp
For i = 2 To moti
	j = i
	Do While (j > 1)
		If 判定(Args(1),げんざいのはいれつ[j],げんざいのはいれつ[j - 1]) = 1 Then
			temp = げんざいのはいれつ[j]
			げんざいのはいれつ[j] = げんざいのはいれつ[j - 1]
			げんざいのはいれつ[j - 1] = temp
			j = (j - 1)
		Else
			Break
		EndIf
	Loop
Next
Return

判定:
Local kaesi
Switch Args(1)
Case 3
	If Info(ユニット,Args(2),最大ＨＰ) > Info(ユニット,Args(3),最大ＨＰ) Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 7
	If Morale(Pilot(Args(2))) > Morale(Pilot(Args(3))) Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 8
	If Info(ユニット,Args(2),特殊能力レベル,修理装置) > Info(ユニット,Args(3),特殊能力レベル,修理装置) Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 9
	If Info(ユニット,Args(2),特殊能力レベル,補給装置) > Info(ユニット,Args(3),特殊能力レベル,補給装置) Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 10
	If (Info(パイロット,Pilot(Args(2)),特殊能力レベル,援護攻撃) + Info(パイロット,Pilot(Args(2)),特殊能力レベル,援護)) > (Info(パイロット,Pilot(Args(3)),特殊能力レベル,援護攻撃) + Info(パイロット,Pilot(Args(3)),特殊能力レベル,援護)) Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 11
	If (Info(パイロット,Pilot(Args(2)),特殊能力レベル,援護防御) + Info(パイロット,Pilot(Args(2)),特殊能力レベル,援護)) > (Info(パイロット,Pilot(Args(3)),特殊能力レベル,援護防御) + Info(パイロット,Pilot(Args(3)),特殊能力レベル,援護)) Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
EndSw
Return kaesi

判定そのニ:
Local kaesi
Switch Args(1)
Case 8
	If Info(ユニット,メンバー[メンバー数 + 1 - Args(2)],特殊能力所有,修理装置) = 1 Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 9
	If Info(ユニット,メンバー[メンバー数 + 1 - Args(2)],特殊能力所有,補給装置) = 1 Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 10
	If (Info(パイロット,Pilot(メンバー[メンバー数 + 1 - Args(2)]),特殊能力所有,援護攻撃) Or (Info(パイロット,Pilot(メンバー[メンバー数 + 1 - Args(2)]),特殊能力所有,援護))) = 1 Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
Case 11
	If (Info(パイロット,Pilot(メンバー[メンバー数 + 1 - Args(2)]),特殊能力所有,援護防御) Or (Info(パイロット,Pilot(メンバー[メンバー数 + 1 - Args(2)]),特殊能力所有,援護))) = 1 Then
		Set kaesi 1
	Else
		Set kaesi 0
	EndIf
EndSw
Return kaesi

ＨＰとＥＮ土台:
Font 13pt Ｐゴシック
yelPaintString 300 80 HP/MAX
yelPaintString 415 80 EN
yelPaintString 323 440 "HP・EN"
HotPoint れべる 433 433 30 30 "パイロット・Lv・気力"
HotPoint ぎのう 242 433 30 30 "特殊能力・技能"
Font 13pt
yelPaintString 120 440 Lv
yelPaintString 165 440 気力
Font
Return

パイロット情報土台:
Font 13pt Ｐゴシック
yelPaintString 250 80 パイロット
yelPaintString 375 80 "Lv"
yelPaintString 415 80 気力
yelPaintString 277 440 "パイロット・Lv・気力"
HotPoint ＨＰＥＮ 242 433 30 30 "HP・EN"
HotPoint ぎのう 433 433 30 30 "特殊能力・技能"
Font 13pt
yelPaintString 22 440 "HP"
yelPaintString 155 440 "EN"
Font
Return

特能土台:
Font 13pt Ｐゴシック
yelPaintString 247 80 修理
yelPaintString 294 80 補給
yelPaintString 349 80 援攻
yelPaintString 412 80 援防
yelPaintString 292 440 "特殊能力・技能"
HotPoint ＨＰＥＮ 433 433 30 30 "HP・EN"
HotPoint れべる 242 433 30 30 "パイロット・Lv・気力"
Font 13pt
yelPaintString 120 440 "Lv"
yelPaintString 165 440 "気力"
Font
Return

ＨＰとＥＮをひょうじ:
Local gow
Font 12pt Ｐゴシック
Local UnitHP
UnitHP = HP(Args(1))
Local MaxHP
MaxHP = Info(ユニット,Args(1),最大ＨＰ)
Local UnitEN
UnitEN = EN(Args(1))
Local MaxEN
MaxEN = Info(ユニット,Args(1),最大ＥＮ)
If Action(Args(1)) = 0 Then
	gow = 2
	Line 256 (122 + 33 * (Args(2) - 1)) 396 (122 + 33 * (Args(2) - 1)) #3e0002
	Line 256 (123 + 33 * (Args(2) - 1)) 396 (123 + 33 * (Args(2) - 1)) #640000
	Line 256 (122 + 33 * (Args(2) - 1)) (256 + 140 * UnitHP / MaxHP) (122 + 33 * (Args(2) - 1)) #004000
	Line 256 (123 + 33 * (Args(2) - 1)) (256 + 140 * UnitHP / MaxHP) (123 + 33 * (Args(2) - 1)) #008000
	Line 402 (122 + 33 * (Args(2) - 1)) 452 (122 + 33 * (Args(2) - 1)) #3e0002
	Line 402 (123 + 33 * (Args(2) - 1)) 452 (123 + 33 * (Args(2) - 1)) #640000
	Line 402 (122 + 33 * (Args(2) - 1)) (402 + 50 * UnitEN / MaxEN) (122 + 33 * (Args(2) - 1)) #805200
	Line 402 (123 + 33 * (Args(2) - 1)) (402 + 50 * UnitEN / MaxEN) (123 + 33 * (Args(2) - 1)) #808000
Else
	If Status(Args(1)) = "格納" Then
		gow = 3
	Else
		gow = 1
	EndIf
	Line 256 (122 + 33 * (Args(2) - 1)) 396 (122 + 33 * (Args(2) - 1)) #7d0004
	Line 256 (123 + 33 * (Args(2) - 1)) 396 (123 + 33 * (Args(2) - 1)) #c80000
	Line 256 (122 + 33 * (Args(2) - 1)) (256 + 140 * UnitHP / MaxHP) (122 + 33 * (Args(2) - 1)) #008000
	Line 256 (123 + 33 * (Args(2) - 1)) (256 + 140 * UnitHP / MaxHP) (123 + 33 * (Args(2) - 1)) #00ff00
	Line 402 (122 + 33 * (Args(2) - 1)) 452 (122 + 33 * (Args(2) - 1)) #7d0004
	Line 402 (123 + 33 * (Args(2) - 1)) 452 (123 + 33 * (Args(2) - 1)) #c80000
	Line 402 (122 + 33 * (Args(2) - 1)) (402 + 50 * UnitEN / MaxEN) (122 + 33 * (Args(2) - 1)) #ffa500
	Line 402 (123 + 33 * (Args(2) - 1)) (402 + 50 * UnitEN / MaxEN) (123 + 33 * (Args(2) - 1)) #ffff00
EndIf
selPaintString gow (325 - TextWidth(UnitHP)) (102 + 33 * (Args(2) - 1)) "$(UnitHP)/$(MaxHP)"
selPaintString gow (442 - TextWidth(UnitEN)) (102 + 33 * (Args(2) - 1)) "$(UnitEN)"
Font
Return

パイロット情報ひょうじ:
Local gow
Font 10pt Ｐゴシック
If Action(Args(1)) = 0 Then
	gow = 2
ElseIf Status(Args(1)) = "格納" Then
	gow = 3
Else
	gow = 1
EndIf
selPaintString gow 250 (108 + 33 * (Args(2) - 1)) Nickname(Pilot(Args(1)))
Font 13pt Ｐゴシック
selPaintString gow (396 - TextWidth(Level(Pilot(Args(1))))) (106 + 33 * (Args(2) - 1)) Level(Pilot(Args(1)))
selPaintString gow (450 - TextWidth(Morale(Pilot(Args(1))))) (106 + 33 * (Args(2) - 1)) Morale(Pilot(Args(1)))
Font
Return

特能ひょうじ:
Local gow
Font 16pt Ｐゴシック
If Action(Args(1)) > 0 Then
	gow = 1
	技能箱 251 (101 + 33 * (Args(2) - 1)) 27
	技能箱 298 (101 + 33 * (Args(2) - 1)) 27
	技能箱 345 (101 + 33 * (Args(2) - 1)) 43
	技能箱 408 (101 + 33 * (Args(2) - 1)) 43
	If IsAvailable(Args(1),修理装置) = 1 Then
		PaintPicture \event\修理持ち.png 249 (99 + 33 * (Args(2) - 1)) 透過
	Else
		PaintPicture \event\修理補給無し.png 249 (99 + 33 * (Args(2) - 1)) 透過
	EndIf
	If IsAvailable(Args(1),補給装置) = 1 Then
		PaintPicture \event\補給持ち.png 296 (99 + 33 * (Args(2) - 1)) 透過
	Else
		PaintPicture \event\修理補給無し.png 296 (99 + 33 * (Args(2) - 1)) 透過
	EndIf
	PaintPicture \event\技能レベル.png 343 (99 + 33 * (Args(2) - 1)) 透過
	PaintPicture \event\技能レベル.png 406 (99 + 33 * (Args(2) - 1)) 透過
Else
	gow = 2
	黒技能箱 251 (101 + 33 * (Args(2) - 1)) 27
	黒技能箱 298 (101 + 33 * (Args(2) - 1)) 27
	黒技能箱 345 (101 + 33 * (Args(2) - 1)) 43
	黒技能箱 408 (101 + 33 * (Args(2) - 1)) 43
	If IsAvailable(Args(1),修理装置) = 1 Then
		PaintPicture \event\修理持ち.png 249 (99 + 33 * (Args(2) - 1)) 透過 暗
	Else
		PaintPicture \event\修理補給無し.png 249 (99 + 33 * (Args(2) - 1)) 透過 暗
	EndIf
	If IsAvailable(Args(1),補給装置) = 1 Then
		PaintPicture \event\補給持ち.png 296 (99 + 33 * (Args(2) - 1)) 透過 暗
	Else
		PaintPicture \event\修理補給無し.png 296 (99 + 33 * (Args(2) - 1)) 透過 暗
	EndIf
	PaintPicture \event\技能レベル.png 343 (99 + 33 * (Args(2) - 1)) 透過 暗
	PaintPicture \event\技能レベル.png 406 (99 + 33 * (Args(2) - 1)) 透過 暗
EndIf
If (Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護攻撃) Or Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護)) <> 0 Then
	selPaintString gow 350 (102 + 33 * (Args(2) - 1)) "Lv$(Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護攻撃) + Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護))"
EndIf
If (Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護防御) Or Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護)) <> 0 Then
	selPaintString gow 413 (102 + 33 * (Args(2) - 1)) "Lv$(Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護防御) + Info(パイロット,Pilot(Args(1)),特殊能力レベル,援護))"
EndIf
Font
Return

技能箱:
Color RGB(SelectR * 80,SelectG * 80,SelectB * 80)
Line Args(1) Args(2) (Args(1) + Args(3)) (Args(2) + 27) BF
Return

黒技能箱:
Color RGB(SelectR * 40,SelectG * 40,SelectB * 40)
Line Args(1) Args(2) (Args(1) + Args(3)) (Args(2) + 27) BF
Return

変数消すよ:
UnSet はいれつずみ
UnSet げんざいのせんたく
UnSet メンバー数
UnSet メンバー
UnSet ひょうじはいれつ
UnSet ぎゃくひき
Return

yelPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font LetterColor2
PaintString Args(1) Args(2) Args(3)
Return

whiPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font LetterColor1
PaintString Args(1) Args(2) Args(3)
Return

selPaintString:
Font LetterShadow
PaintString (Args(2) + 1) (Args(3) + 1) Args(4)
Switch Args(1)
Case 1
	Font LetterColor1
Case 2
	Font LetterColor4
Case Else
	Font #808000
EndSw
PaintString Args(2) Args(3) Args(4)
Return
